home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Unix / satan-1.1.1 / bin / boot.satan < prev    next >
Text File  |  1996-04-24  |  1KB  |  52 lines
  1. #!/usr/local/bin/perl
  2. #
  3. #  Execute a bootparam WHOAMI request and report the results.
  4. #
  5. $running_under_satan = 1;
  6. require 'config/paths.pl';
  7. require 'perl/misc.pl';
  8. require 'perl/fix_hostname.pl';
  9.  
  10. die "usage: $0 client server" unless ($#ARGV == 1);
  11.  
  12. $target = $client = $ARGV[0];
  13. $server = $ARGV[1];
  14.  
  15. # fields for satan...
  16. $severity="x";
  17. $status="a";
  18. $service = "boot";
  19.  
  20. open(BOOT, "$BOOT $client $server|");
  21.  
  22. while (<BOOT>) {
  23.     chop;
  24.     if (/domain_name:\s+(\S+)/) {
  25.         $service_output = "domain $1"; 
  26.         $target = $server; &satan_print;
  27.         $target = $client; &satan_print;
  28.     }
  29.     if (/client_name:\s+(\S+)/) {
  30.         $client = &fix_hostname($1, $server);
  31.         $service_output = "client $client"; 
  32.         $target = $client; &satan_print;
  33.     }
  34.     if (/router_addr:\s+(\S+)/) {
  35.         $service_output = "router $1"; 
  36.         $target = $client; &satan_print;
  37.     }
  38. }
  39. close(BOOT);
  40.  
  41. # print something out if nothing has happened so far...
  42. # if rpcinfo returns !0, then flag it; else, nothing interesting showed up.
  43. if ($service_output eq "") {
  44.     $severity="";
  45.     if ($?) {
  46.         $text="boot error #$?";
  47.     } else {
  48.         $text="No boot output of interest";
  49.     }
  50.     &satan_print();
  51. }
  52.